Usenet 1993 July

home *** CD-ROM | disk | FTP | other *** search

/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / x / volume9 / acm / part01 next >

Wrap

Internet Message Format | 1990-10-09 | 65.4 KB

Path: uunet!snorkelwacker!apple!netcom!amdcad!sun!mipsdal.mips.com From: riley@mipsdal.mips.com (Riley Rainey) Newsgroups: comp.sources.x Subject: v09i069: acm, X aerial combat simulation, Part01/05 Message-ID: <csx-09i069:acm@uunet.UU.NET> Date: 7 Oct 90 18:12:48 GMT Sender: news@sun.Eng.Sun.COM Lines: 2490 Approved: argv@sun.com Submitted-by: riley@mipsdal.mips.com (Riley Rainey) Posting-number: Volume 9, Issue 69 Archive-name: acm/part01 acm is a multi-user aerial combat simulation written for X. The sources are in shar format broken into 5 parts. acm requires an 8-plane color display and a reasonably fast (> 10 SPECmark) workstation to perform reasonably well. To unpack these shar format files, first save each article as acm.shar.N, where N is the part number, delete the headers and trailers from each file, and then type: $ cat acm.shar.* | sh acm is divided into two directories, V and fsim. V contains the 3-D routines and fsim is everything else. V must be "made" first. -------> CUT HERE <--------- mkdir V mkdir V/test mkdir V/lib mkdir fsim echo x - ./V sed 's/^X//' >./V <<'*-*-END-of-./V-*-*' *-*-END-of-./V-*-* echo x - ./V/lib sed 's/^X//' >./V/lib <<'*-*-END-of-./V/lib-*-*' *-*-END-of-./V/lib-*-* echo x - ./V/lib/Makefile sed 's/^X//' >./V/lib/Makefile <<'*-*-END-of-./V/lib/Makefile-*-*' X# Makefile generated by imake - do not edit! X# $XConsortium: imake.c,v 1.37 88/10/08 20:08:30 jim Exp $ X X########################################################################### X# X Window System Makefile generated from template file Imake.tmpl X# $XConsortium: Imake.tmpl,v 1.91 88/10/23 22:37:10 jim Exp $ X# X# Do not change the body of the imake template file. Server-specific X# parameters may be set in the appropriate .macros file; site-specific X# parameters (but shared by all servers) may be set in site.def. If you X# make any changes, you'll need to rebuild the makefiles using X# "make World" (at best) or "make Makefile; make Makefiles" (at least) in X# the top level directory. X# X# If your C preprocessor doesn't define any unique symbols, you'll need X# to set BOOTSTRAPCFLAGS when rebuilding imake (usually when doing X# "make Makefile", "make Makefiles", or "make World"). X# X# If you absolutely can't get imake to work, you'll need to set the X# variables at the top of each Makefile as well as the dependencies at the X# bottom (makedepend will do this automatically). X# X X########################################################################### X# platform-specific configuration parameters - edit Mips.macros to change X X# platform: $XConsortium: Mips.macros,v 1.27 88/10/23 11:00:43 jim Exp $ X X AS = as X CC = cc X CPP = /lib/cpp X LD = ld X LINT = lint X INSTALL = /etc/mipsinstall X TAGS = ctags X RM = rm -f X MV = mv X LN = ln -s X RANLIB = ranlib XRANLIBINSTFLAGS = X AR = ar clq X LS = ls X LINTOPTS = -axz X LINTLIBFLAG = -C X MAKE = make XSTD_CPP_DEFINES = -DSYSV X STD_DEFINES = -I$(XLIBSRC)/mips -I/usr/include/bsd -DSYSV X XSYSAUX_LIBRARIES = -lbsd -lmld X X INSTFILEFLAGS = -f X X########################################################################### X# site-specific configuration parameters - edit site.def to change X X# site: $XConsortium: site.def,v 1.16 88/10/12 10:30:24 jim Exp $ X X########################################################################### X# definitions common to all Makefiles - do not edit X X SHELL = /bin/sh X X MFLAGS = -$(MAKEFLAGS) X X DESTDIR = X USRLIBDIR = $(DESTDIR)/usr/lib X BINDIR = $(DESTDIR)/usr/bin/X11 X INCDIR = $(DESTDIR)/usr/include/X11 X ADMDIR = $(DESTDIR)/usr/adm X LIBDIR = $(USRLIBDIR)/X11 X LINTLIBDIR = $(USRLIBDIR)/lint X FONTDIR = $(LIBDIR)/fonts X XINITDIR = $(LIBDIR)/xinit X XDMDIR = $(LIBDIR)/xdm X UWMDIR = $(LIBDIR)/uwm X AWMDIR = $(LIBDIR)/awm X TWMDIR = $(LIBDIR)/twm X MANPATH = $(DESTDIR)/usr/man X MANSOURCEPATH = $(MANPATH)/man X MANDIR = $(MANSOURCEPATH)1 X LIBMANDIR = $(MANSOURCEPATH)3 X XAPPLOADDIR = $(LIBDIR)/app-defaults X X INSTBINFLAGS = -m 0755 X INSTUIDFLAGS = -m 4755 X INSTLIBFLAGS = -m 0664 X INSTINCFLAGS = -m 0444 X INSTMANFLAGS = -m 0444 X INSTAPPFLAGS = -m 0444 X INSTKMEMFLAGS = -m 4755 X FCFLAGS = -t X CDEBUGFLAGS = X X PATHSEP = / X DEPEND = $(DEPENDSRC)/makedepend X IMAKE = $(IMAKESRC)/imake X RGB = $(RGBSRC)/rgb X FC = $(BDFTOSNFSRC)/bdftosnf X MKFONTDIR = $(MKFONTDIRSRC)/mkfontdir X MKDIRHIER = $(SCRIPTSSRC)/mkdirhier.sh X X CFLAGS = $(CDEBUGFLAGS) $(INCLUDES) $(STD_DEFINES) $(DEFINES) X LINTFLAGS = $(LINTOPTS) $(INCLUDES) $(STD_DEFINES) $(DEFINES) -DLINT X LDFLAGS = $(CDEBUGFLAGS) $(SYS_LIBRARIES) $(SYSAUX_LIBRARIES) X TOP = /people/riley/R3 X CLIENTSRC = $(TOP)/clients X DEMOSRC = $(TOP)/demos X LIBSRC = $(TOP)/lib X FONTSRC = $(TOP)/fonts X INCLUDESRC = $(TOP)/X11 X SERVERSRC = $(TOP)/server X UTILSRC = $(TOP)/util X SCRIPTSSRC = $(UTILSRC)/scripts X EXAMPLESRC = $(TOP)/examples X CONTRIBSRC = $(TOP)/contrib X DOCSRC = $(TOP)/doc X RGBSRC = $(TOP)/rgb X DEPENDSRC = $(UTILSRC)/makedepend X IMAKESRC = $(UTILSRC)/imake X IRULESRC = $(UTILSRC)/imake.includes X XLIBSRC = $(LIBSRC)/X X XMUSRC = $(LIBSRC)/Xmu X TOOLKITSRC = $(LIBSRC)/Xt X AWIDGETSRC = $(LIBSRC)/Xaw X OLDXLIBSRC = $(LIBSRC)/oldX X BDFTOSNFSRC = $(FONTSRC)/bdftosnf X MKFONTDIRSRC = $(FONTSRC)/mkfontdir X EXTENSIONSRC = $(TOP)/extensions X EXTENSIONLIB = $(EXTENSIONSRC)/lib/libXext.a X XLIB = $(XLIBSRC)/libX11.a X XMULIB = $(XMUSRC)/libXmu.a X OLDXLIB = $(OLDXLIBSRC)/liboldX.a X XTOOLLIB = $(TOOLKITSRC)/libXt.a X XAWLIB = $(AWIDGETSRC)/libXaw.a X LINTXLIB = $(XLIBSRC)/llib-lX11.ln X LINTXMU = $(XMUSRC)/llib-lXmu.ln X LINTXTOOL = $(TOOLKITSRC)/llib-lXt.ln X LINTXAW = $(AWIDGETSRC)/llib-lXaw.ln X INCLUDES = -I$(TOP) X MACROFILE = Mips.macros X ICONFIGFILES = $(IRULESRC)/Imake.tmpl \ X $(IRULESRC)/$(MACROFILE) $(IRULESRC)/site.def X IMAKE_DEFINES = X IMAKE_CMD = $(NEWTOP)$(IMAKE) -TImake.tmpl -I$(NEWTOP)$(IRULESRC) \ X -s Makefile $(IMAKE_DEFINES) X RM_CMD = $(RM) *.CKP *.ln *.BAK *.bak *.o core errs ,* *~ *.a \ X .emacs_* tags TAGS make.log MakeOut X X########################################################################### X# rules: $XConsortium: Imake.rules,v 1.71 88/10/23 22:46:34 jim Exp $ X X########################################################################### X# start of Imakefile X XCDEBUGFLAGS = -O2 XLIBOBJS = \ X VOpenViewport.o \ X VResizeViewport.o \ X VCloseViewport.o \ X VGetEyeSpace.o \ X VGetPlanes.o \ X VReadObject.o \ X VWriteObject.o \ X VAllocColor.o \ X VBindColors.o \ X VExposeBuffer.o \ X VCreatePolygon.o \ X VCreatePoints.o \ X VCopyPolygon.o \ X VDrawPolygon.o \ X VFillPolygon.o \ X VDrawString.o \ X VClipPolygon.o \ X VDotProd.o \ X VRotate.o \ X VTransformPolygon.o \ X VTransform.o \ X VIdentMatrix.o \ X VMatrixMult.o \ X VMatrixDeterminant.o \ X VMatrixInvert.o \ X VPrintPolygon.o \ X Vmalloc.o X Xall:: libV.a X XlibV.a: $(LIBOBJS) X $(RM) $@ X $(AR) $@ $(LIBOBJS) X $(RANLIB) $@ X Xinstall:: libV.a X $(INSTALL) -c $(INSTLIBFLAGS) libV.a $(USRLIBDIR) X $(RANLIB) $(RANLIBINSTFLAGS) $(USRLIBDIR)/libV.a X X# DO NOT DELETE THIS LINE -- make depend depends on it. X X########################################################################### X# Imake.tmpl common rules for all Makefiles - do not edit X Xemptyrule:: X Xclean:: X $(RM_CMD) \#* X XMakefile:: $(IMAKE) X XMakefile:: Imakefile \ X $(IRULESRC)/Imake.tmpl \ X $(IRULESRC)/Imake.rules \ X $(IRULESRC)/site.def \ X $(IRULESRC)/$(MACROFILE) X -@if [ -f Makefile ]; then \ X echo "$(RM) Makefile.bak; $(MV) Makefile Makefile.bak"; \ X $(RM) Makefile.bak; $(MV) Makefile Makefile.bak; \ X else exit 0; fi X $(IMAKE_CMD) -DTOPDIR=$(TOP) X X$(IMAKE): X @echo "making $@"; \ X cd $(IMAKESRC); $(MAKE) BOOTSTRAPCFLAGS=$(BOOTSTRAPCFLAGS) X Xtags:: X $(TAGS) -w *.[ch] X $(TAGS) -xw *.[ch] > TAGS X X########################################################################### X# empty rules for directories that do not have SUBDIRS - do not edit X Xinstall:: X @echo "install done" X Xinstall.man:: X @echo "install.man done" X XMakefiles:: X X########################################################################### X# dependencies generated by makedepend X *-*-END-of-./V/lib/Makefile-*-* echo x - ./V/lib/VPrintPolygon.c sed 's/^X//' >./V/lib/VPrintPolygon.c <<'*-*-END-of-./V/lib/VPrintPolygon.c-*-*' X#include "Vlib.h" X Xvoid VPrintPolygon (file, p) XFILE *file; XVPolygon *p; { X X int i; X char *nullPoly = "*** Null Polygon ***\n"; X X if (p == (VPolygon *) NULL) X fprintf (file, nullPoly); X else { X if (p->numVtces == 0) { X fprintf (file, nullPoly); X return; X } X X fprintf (file, "%d vertices:\n", p->numVtces); X X for (i=0; i<p->numVtces; ++i) X fprintf(file, "%9.6g %9.6g %9.6g\n", p->vertex[i].x, X p->vertex[i].y, p->vertex[i].z); X } X X return; X} *-*-END-of-./V/lib/VPrintPolygon.c-*-* echo x - ./V/lib/Vlib.h sed 's/^X//' >./V/lib/Vlib.h <<'*-*-END-of-./V/lib/Vlib.h-*-*' X#ifndef __Vlib X#define __Vlib X X#define VmaxVP 32 /* max # of vertices in a polygon */ X X#define MAXCOLORS 8 /* max number of colors available */ X /* when double buffering */ X#if (MAXCOLORS==4) X#define PLANES 2 X#endif X#if (MAXCOLORS==8) X#define PLANES 3 X#endif X#if (MAXCOLORS==16) X#define PLANES 4 X#endif X X#include <X11/Xlib.h> X#include <stdio.h> X#include <memory.h> X Xtypedef struct _vcolor { X char *color_name; /* text name */ X short index; /* index into pixel value table */ X XColor xcolor; /* representation of this color */ X struct _vcolor *next; X } VColor; X Xtypedef struct { X double x, y, z; /* A point or vector in 3-space */ X } VPoint; X Xtypedef struct { X short numVtces; /* vertex count */ X VPoint *vertex; /* pointer to array of vertices */ X VColor *color; /* pointer to color descriptor */ X } VPolygon; X Xtypedef struct { X char *name; /* object name */ X int numPolys; /* polygon count */ X VPolygon **polygon; /* pointer to array of polygon pointers */ X } VObject; X Xtypedef struct { X double m[4][4]; X } VMatrix; X Xtypedef struct { X unsigned long flags; /* viewport flags */ X VMatrix eyeSpace; /* transforms from world to eyeSpace system */ X VPolygon *clipPoly; /* planes to clip viewed polygons */ X double units; /* world units expressed in meters */ X double dist; /* distance in units from eye to screen */ X double xres; /* x screen resolution in dots per unit */ X double yres; /* y screen resolution in dots per unit */ X int width; /* width of window in dots */ X int height; /* height of window in dots */ X VPoint Middl; /* center of window */ X VPoint Scale; /* scaling factor */ X Display *dpy; /* Display associated with this viewport */ X int screen; /* X screen number */ X Window *win; X Pixmap monoPixmap; /* Pixmap used to buffer monochrome drawing */ X X int colors; /* color count */ X int set; /* id of buffer currently in use */ X unsigned long mask; /* current plane mask */ X unsigned long aMask, bMask; X unsigned long *pixel; /* current pixel drawing values */ X unsigned long aPixel[MAXCOLORS]; X unsigned long bPixel[MAXCOLORS]; X XColor aColor[MAXCOLORS*MAXCOLORS]; X XColor bColor[MAXCOLORS*MAXCOLORS]; X Colormap cmap; X } Viewport; X X#define VGetPolygonPixel(p) (p->color->xcolor.pixel) X#define VLookupViewportColor(v,n) (v->pixel[n]) X#define VGetViewportMask(v) (v->mask) X X/* X * Globals X */ X XVColor *VColorList; /* list of colors needed for drawing */ X X/* X * V macros and function prototypes X */ X X#define VDestroyPoints(a) free((char *) a) X#define VDestroyPolygon(a) {free((char *) a->vertex); free((char *) a);} X XViewport *VOpenViewport(); /* (Display *, .. ) */ Xvoid VResizeViewport(); /* (Viewport *, ... ) */ Xvoid VCloseViewport(); /* (Viewport *) */ XVPolygon *VCreatePolygon(); /* (VPoint *, int, VColor *) */ XVPolygon *VCopyPolygon(); /* (VPolygon *) */ XVPolygon *VClipPolygon(); /* (VPolygon *, VPoint) */ XVPoint *VCreatePoints(); /* (int) */ XVColor *VAllocColor(); /* (char *) */ Xint VBindColors(); /* (Viewport *, char *) */ Xvoid VExposeBuffer(); /* (Viewport *, GC) */ XVObject *VReadObject(); /* (FILE *) */ Xint VWriteObject(); /* (FILE *, VObject *) */ XVMatrix *VRotate(); /* (VMatrix *, int) */ XVMatrix *VTranslate(); /* (VMatrix *, double, double, double) */ XVMatrix *VTranslatePoint(); /* (VMatrix *, VPoint) */ Xdouble VMatrixDeterminant(); /* (VMatrix *) */ XVMatrix *VMatrixInvert(); /* (VMatrix *, VMatrix *) */ Xvoid VTransform(); /* (VPoint *, VMatrix *, VPoint *) */ Xdouble VDotProd(); /* (Vpoint *, VPoint *) */ Xchar *Vmalloc(); /* (int) */ X X/* X * Viewport flags (must be changed manually after VOpenViewport for now) X */ X X#define VPClip 1 /* polygons should be clipped before drawing */ X#define VPPerspective 2 /* Z coordinate used for depth information */ X#define VPMono 4 /* Monochrome environment */ X X/* X * VRotate options X */ X X#define XRotation 1 /* rotate about X axis */ X#define YRotation 2 /* rotate about Y axis */ X#define ZRotation 3 /* rotate about Z axis */ X X#endif *-*-END-of-./V/lib/Vlib.h-*-* echo x - ./V/lib/VCreatePolygon.c sed 's/^X//' >./V/lib/VCreatePolygon.c <<'*-*-END-of-./V/lib/VCreatePolygon.c-*-*' X#include "Vlib.h" X XVPolygon *VCreatePolygon (numVtces, vert, color) Xint numVtces; XVPoint *vert; XVColor *color; { X X VPolygon *p; X X p = (VPolygon *) Vmalloc (sizeof (VPolygon)); X X p->numVtces = numVtces; X p->vertex = (VPoint *) Vmalloc (sizeof (VPoint) * numVtces); X memcpy ((char *) p->vertex, (char *) vert, sizeof(VPoint) * numVtces); X p->color = color; X X return p; X} *-*-END-of-./V/lib/VCreatePolygon.c-*-* echo x - ./V/lib/VCreatePoints.c sed 's/^X//' >./V/lib/VCreatePoints.c <<'*-*-END-of-./V/lib/VCreatePoints.c-*-*' X#include "Vlib.h" X XVPoint *VCreatePoints (numPts) Xint numPts; { X X return (VPoint *) Vmalloc (sizeof(VPoint) * numPts); X} *-*-END-of-./V/lib/VCreatePoints.c-*-* echo x - ./V/lib/VCopyPolygon.c sed 's/^X//' >./V/lib/VCopyPolygon.c <<'*-*-END-of-./V/lib/VCopyPolygon.c-*-*' X#include "Vlib.h" X XVPolygon *VCopyPolygon (poly) XVPolygon *poly; { X X return VCreatePolygon (poly->numVtces, poly->vertex, poly->color); X} *-*-END-of-./V/lib/VCopyPolygon.c-*-* echo x - ./V/lib/VDotProd.c sed 's/^X//' >./V/lib/VDotProd.c <<'*-*-END-of-./V/lib/VDotProd.c-*-*' X#include "Vlib.h" X Xdouble VDotProd (a, b) XVPoint *a, *b; { X X return a->x * b->x + a->y * b->y + a->z * b->z; X} *-*-END-of-./V/lib/VDotProd.c-*-* echo x - ./V/lib/VClipPolygon.c sed 's/^X//' >./V/lib/VClipPolygon.c <<'*-*-END-of-./V/lib/VClipPolygon.c-*-*' X#include "Vlib.h" X XVPolygon * _VClipPolygon (poly, clipPlane) XVPolygon *poly; XVPoint *clipPlane; { X X register int j, lastj, numPts = 0, clipped = 0; X double d1, d2, a; X VPoint tmpPoint[64]; X VPolygon *p; X X if (poly->numVtces > 0) { X X lastj = poly->numVtces-1; X d1 = VDotProd(&(poly->vertex[poly->numVtces-1]), clipPlane); X numPts = 0; X X/* X * Examine each vertex and determine if it is inside or outside of the X * specified clipping plane. X */ X X for (j=0; j<poly->numVtces; ++j) { X X/* Leading vertex inside? */ X X if (d1 > 0.0) X tmpPoint[numPts++] = poly->vertex[lastj]; X X d2 = VDotProd(&(poly->vertex[j]), clipPlane); X X/* Does the edge straddle the window? If so, add a vertex on the window */ X X if (d1 * d2 < 0.0) { X clipped = 1; X a = d1 / (d1 - d2); X tmpPoint[numPts].x = a * poly->vertex[j].x + X (1.0 - a) * poly->vertex[lastj].x; X tmpPoint[numPts].y = a * poly->vertex[j].y + X (1.0 - a) * poly->vertex[lastj].y; X tmpPoint[numPts++].z = a * poly->vertex[j].z + X (1.0 - a) * poly->vertex[lastj].z; X } X X lastj = j; X d1 = d2; X } X } X X/* X * If the polygon was completely out of bounds, delete this polygon. X */ X X if (numPts == 0) { X p = (VPolygon *) NULL; X VDestroyPolygon (poly); X#ifdef DEBUG X fprintf (stderr, "VClipPolygon: polygon outside area of interest\n"); X#endif X } X X/* X * If we did any clipping, return the clipped polygon. X */ X X else if (clipped != 0) { X p = VCreatePolygon(numPts, &tmpPoint[0], poly->color); X#ifdef DEBUG X fprintf (stderr, "VClipPolygon: Polygon has been clipped:\n"); X fprintf (stderr, "Before Clipping:\n"); X VPrintPolygon (stderr, poly); X fprintf (stderr, "\nAfter Clipping:\n\n"); X VPrintPolygon (stderr, p); X#endif X VDestroyPolygon (poly); X } X else X p = poly; X X return p; X} X XVPolygon * VClipPolygon (poly, clipPoly) XVPolygon *poly, *clipPoly; { X X int i; X VPolygon *p = poly; X X/* X * Clip against each clipping plane supplied, one at a time. X */ X X for (i=0; i<clipPoly->numVtces; ++i) { X X if (p == (VPolygon *) NULL) X break; X X p = _VClipPolygon (p, &(clipPoly->vertex[i])); X X } X X return p; X} *-*-END-of-./V/lib/VClipPolygon.c-*-* echo x - ./V/lib/Imakefile sed 's/^X//' >./V/lib/Imakefile <<'*-*-END-of-./V/lib/Imakefile-*-*' XCDEBUGFLAGS = -O2 XLIBOBJS = \ X VOpenViewport.o \ X VResizeViewport.o \ X VCloseViewport.o \ X VGetEyeSpace.o \ X VGetPlanes.o \ X VReadObject.o \ X VWriteObject.o \ X VAllocColor.o \ X VBindColors.o \ X VExposeBuffer.o \ X VCreatePolygon.o \ X VCreatePoints.o \ X VCopyPolygon.o \ X VDrawPolygon.o \ X VFillPolygon.o \ X VDrawString.o \ X VClipPolygon.o \ X VDotProd.o \ X VRotate.o \ X VTransformPolygon.o \ X VTransform.o \ X VIdentMatrix.o \ X VMatrixMult.o \ X VMatrixDeterminant.o \ X VMatrixInvert.o \ X VPrintPolygon.o \ X Vmalloc.o X XNormalLibraryTarget(V,$(LIBOBJS)) XInstallLibrary(V,$(USRLIBDIR)) X X# DO NOT DELETE THIS LINE -- make depend depends on it. *-*-END-of-./V/lib/Imakefile-*-* echo x - ./V/lib/VGetEyeSpace.c sed 's/^X//' >./V/lib/VGetEyeSpace.c <<'*-*-END-of-./V/lib/VGetEyeSpace.c-*-*' X#include "Vlib.h" X#include <math.h> X Xvoid VGetEyeSpace (v, EyePt, CntrInt, up) XViewport *v; XVPoint EyePt, CntrInt, up; { X X VMatrix Mtx, es; X VPoint C1, C2; X double Hypotenuse, h1, CosA, SinA; X X/* X * Calculate the eye space transformation matrix X * X * First, orient the Z axis towards the center of interest. X */ X X VIdentMatrix (&(v->eyeSpace)); X v->eyeSpace.m[0][3] = -EyePt.x; X v->eyeSpace.m[1][3] = -EyePt.y; X v->eyeSpace.m[2][3] = -EyePt.z; X VTransform(&CntrInt, &(v->eyeSpace), &C1); X X VIdentMatrix (&Mtx); X Hypotenuse = sqrt(C1.x * C1.x + C1.y * C1.y); X if (Hypotenuse > 0.0) { X CosA = C1.y / Hypotenuse; X SinA = C1.x / Hypotenuse; X Mtx.m[0][0] = CosA; X Mtx.m[1][0] = SinA; X Mtx.m[0][1] = -SinA; X Mtx.m[1][1] = CosA; X es = v->eyeSpace; X VMatrixMult(&es, &Mtx, &(v->eyeSpace)); X } X X VTransform(&CntrInt, &(v->eyeSpace), &C2); X VIdentMatrix (&Mtx); X Hypotenuse = sqrt(C2.y * C2.y + C2.z * C2.z); X if (Hypotenuse > 0.0) { X CosA = C2.y / Hypotenuse; X SinA = -C2.z / Hypotenuse; X Mtx.m[1][1] = CosA; X Mtx.m[2][1] = SinA; X Mtx.m[1][2] = -SinA; X Mtx.m[2][2] = CosA; X es = v->eyeSpace; X VMatrixMult(&es, &Mtx, &(v->eyeSpace)); X } X X/* X * Orient the y axis towards "up". Swap y and z axes. X */ X X VTransform (&up, &(v->eyeSpace), &C2); X VIdentMatrix (&Mtx); X h1 = sqrt (C2.y * C2.y + C2.z * C2.z); X Hypotenuse = sqrt(C2.x * C2.x + h1 * h1); X if (Hypotenuse > 0.0) { X CosA = h1 / Hypotenuse; X SinA = C2.x / Hypotenuse; X if (C2.z < 0.0) { X CosA = -CosA; X } X Mtx.m[0][0] = CosA; X Mtx.m[2][0] = SinA; X Mtx.m[0][2] = -SinA; X Mtx.m[2][2] = CosA; X es = v->eyeSpace; X VMatrixMult(&es, &Mtx, &(v->eyeSpace)); X } X X VIdentMatrix (&Mtx); X Mtx.m[1][1] = 0.0; X Mtx.m[2][1] = 1.0; X Mtx.m[1][2] = 1.0; X Mtx.m[2][2] = 0.0; X es = v->eyeSpace; X VMatrixMult(&es, &Mtx, &(v->eyeSpace)); X X} *-*-END-of-./V/lib/VGetEyeSpace.c-*-* echo x - ./V/lib/VDrawPolygon.c sed 's/^X//' >./V/lib/VDrawPolygon.c <<'*-*-END-of-./V/lib/VDrawPolygon.c-*-*' X#include "Vlib.h" X Xvoid VDrawPolygon(v, win, gc, poly) XViewport *v; XWindow *win; XGC gc; XVPolygon *poly; { X X VPoint TmpPt, *p; X XPoint xpt[VmaxVP]; X int i; X Drawable d; X X d = (v->flags & VPMono) ? (Drawable) v->monoPixmap : (Drawable) win; X X if (poly == (VPolygon *) NULL) X return; X X for ((i=0, p=poly->vertex); i<poly->numVtces; (++i, ++p)) { X if (v->flags & VPPerspective) { X TmpPt.x = v->Middl.x + v->Scale.x * p->x / p->z; X TmpPt.y = v->Middl.y - v->Scale.y * p->y / p->z; X } X else { X TmpPt.x = v->Middl.x + v->Scale.x * p->x; X TmpPt.y = v->Middl.y - v->Scale.y * p->y; X } X xpt[i].x = TmpPt.x + 0.5; X xpt[i].y = TmpPt.y + 0.5; X } X X if (i > 0) { X xpt[i] = xpt[0]; X XDrawLines (v->dpy, d, gc, xpt, i+1, CoordModeOrigin); X } X X} *-*-END-of-./V/lib/VDrawPolygon.c-*-* echo x - ./V/lib/Vmalloc.c sed 's/^X//' >./V/lib/Vmalloc.c <<'*-*-END-of-./V/lib/Vmalloc.c-*-*' X#include "Vlib.h" X Xextern char * malloc(); X Xchar *Vmalloc(size) Xint size; { X X char *p; X X if ((p = malloc(size)) == (char *) NULL) { X fprintf (stderr, "V package memory allocation error.\n"); X fprintf (stderr, "An error was encountered allocating\ X %d bytes.\n", size); X exit (1); X } X return p; X} *-*-END-of-./V/lib/Vmalloc.c-*-* echo x - ./V/lib/VReadObject.c sed 's/^X//' >./V/lib/VReadObject.c <<'*-*-END-of-./V/lib/VReadObject.c-*-*' X#include "Vlib.h" X#include <string.h> X XVObject *VReadObject(f) XFILE *f; { X X short I, J, vertex, vertices, NumPts, NumPolys; X float x, y, z; X char str[64], name[128]; X VPoint *tmpPts, pts[VmaxVP]; X VPolygon **polygons; X VObject *object; X X fscanf(f, "%s\n", name); X fscanf(f, "%hd", &NumPts); X fscanf(f, "%hd", &NumPolys); X X tmpPts = (VPoint *) Vmalloc (NumPts * sizeof(VPoint)); X polygons = (VPolygon **) Vmalloc (NumPolys * sizeof(VPolygon *)); X X for (I=0; I<NumPts; ++I) { X fscanf(f, "%hd", &J); X fscanf(f, "%f", &x); X fscanf(f, "%f", &y); X fscanf(f, "%f", &z); X tmpPts[I].x = x; X tmpPts[I].y = y; X tmpPts[I].z = z; X } X X for (I=0; I<NumPolys; ++I) { X fscanf(f, "%s %hd", str, &(vertices)); X for (J=0; J<vertices; ++J) { X fscanf(f, "%hd", &(vertex)); X pts[J] = tmpPts[vertex - 1]; X } X polygons[I] = VCreatePolygon (vertices, pts, VAllocColor(str)); X } X X object = (VObject *) Vmalloc (sizeof(VObject)); X object->name = strdup (name); X object->numPolys = NumPolys; X object->polygon = polygons; X X free ((char *) tmpPts); X return ferror(f) ? (VObject *) 0 : object; X} *-*-END-of-./V/lib/VReadObject.c-*-* echo x - ./V/lib/VMatrixMult.c sed 's/^X//' >./V/lib/VMatrixMult.c <<'*-*-END-of-./V/lib/VMatrixMult.c-*-*' X#include "Vlib.h" X Xvoid VMatrixMult (Mt1, Mt2, R) XVMatrix *Mt1, *Mt2, *R; { X short I, J, K; X X for (I=0; I<4; ++I) X for (J=0; J<4; ++J) { X R->m[I][J] = 0.0; X for (K=0; K<4; ++K) X R->m[I][J] = R->m[I][J] + Mt1->m[K][J] * Mt2->m[I][K]; X } X} *-*-END-of-./V/lib/VMatrixMult.c-*-* echo x - ./V/lib/VTransform.c sed 's/^X//' >./V/lib/VTransform.c <<'*-*-END-of-./V/lib/VTransform.c-*-*' X#include "Vlib.h" X X/* X * VTransform: transform a point from one coordinate system to another. X */ X Xvoid VTransform (pt, mt, newPt) XVPoint *pt; XVMatrix *mt; XVPoint *newPt; { X X newPt->x = pt->x * mt->m[0][0] + pt->y * mt->m[0][1] X + pt->z * mt->m[0][2] + mt->m[0][3]; X X newPt->y = pt->x * mt->m[1][0] + pt->y * mt->m[1][1] X + pt->z * mt->m[1][2] + mt->m[1][3]; X X newPt->z = pt->x * mt->m[2][0] + pt->y * mt->m[2][1] X + pt->z * mt->m[2][2] + mt->m[2][3]; X} *-*-END-of-./V/lib/VTransform.c-*-* echo x - ./V/lib/VIdentMatrix.c sed 's/^X//' >./V/lib/VIdentMatrix.c <<'*-*-END-of-./V/lib/VIdentMatrix.c-*-*' X#include "Vlib.h" X Xvoid VIdentMatrix (Mtx) XVMatrix *Mtx; X{ X short I, J; X X for (I=0; I<4; ++I) X for (J=0; J<4; ++J) X if (I == J) X (*Mtx).m[I][J] = 1.0; X else X (*Mtx).m[I][J] = 0.0; X X} *-*-END-of-./V/lib/VIdentMatrix.c-*-* echo x - ./V/lib/VDisplayObjects.c sed 's/^X//' >./V/lib/VDisplayObjects.c <<'*-*-END-of-./V/lib/VDisplayObjects.c-*-*' X#include "Vlib.h" X Xvoid VDisplayObjects() { X X Point3 TmpPt; X int I, J; X XPoint xpt[MaxPts]; X X for (I=0; I<NumPolys; ++I) { X X for (J=0; J<Polygons[I].PolyVtces; ++J) { X Transform(&Points[Vertices[Polygons[I].Start + J]], &EyeSpace, &TmpPt); X MakeDisplayable(&TmpPt); X xpt[J].x = (int) TmpPt.X; X xpt[J].y = (int) TmpPt.Y; X } X/* xpt[J] = xpt[0]; X XDrawLines (dpy, win, gc, &xpt, J+1, CoordModeOrigin); */ X XFillPolygon (dpy, win, curGC, &xpt, J, Nonconvex, CoordModeOrigin); X } X X} *-*-END-of-./V/lib/VDisplayObjects.c-*-* echo x - ./V/lib/VRotate.c sed 's/^X//' >./V/lib/VRotate.c <<'*-*-END-of-./V/lib/VRotate.c-*-*' X#include "Vlib.h" X#include <math.h> X XVMatrix *VRotate (Mt1, operation, angle) XVMatrix * Mt1; Xint operation; Xdouble angle; { X X VMatrix m, s; X X VIdentMatrix (&m); X X switch (operation) { X case XRotation: X m.m[1][1] = m.m[2][2] = cos(angle); X m.m[2][1] = sin(angle); X m.m[1][2] = - m.m[2][1]; X break; X case YRotation: X m.m[0][0] = m.m[2][2] = cos(angle); X m.m[2][0] = sin(angle); X m.m[0][2] = - m.m[2][0]; X break; X case ZRotation: X m.m[0][0] = m.m[1][1] = cos(angle); X m.m[1][0] = sin(angle); X m.m[0][1] = - m.m[1][0]; X break; X } X X s = *Mt1; X X VMatrixMult (&s, &m, Mt1); X return Mt1; X} X XVMatrix *VTranslatePoint (Mt, loc) XVMatrix *Mt; XVPoint loc; { X X Mt->m[0][3] = Mt->m[0][3] + loc.x; X Mt->m[1][3] = Mt->m[1][3] + loc.y; X Mt->m[2][3] = Mt->m[2][3] + loc.z; X return Mt; X X} X XVMatrix *VTranslate (Mt, x, y ,z) XVMatrix *Mt; Xdouble x, y, z; { X X Mt->m[0][3] = Mt->m[0][3] + x; X Mt->m[1][3] = Mt->m[1][3] + y; X Mt->m[2][3] = Mt->m[2][3] + z; X return Mt; X} *-*-END-of-./V/lib/VRotate.c-*-* echo x - ./V/lib/VGetPlanes.c sed 's/^X//' >./V/lib/VGetPlanes.c <<'*-*-END-of-./V/lib/VGetPlanes.c-*-*' X#include "Vlib.h" X XVPolygon *VGetPlanes (poly) XVPolygon *poly; { X X VPoint tmp[64], *p; X int i, lasti; X X lasti = poly->numVtces - 1; X p = poly->vertex; X X for (i=0; i<poly->numVtces; ++i) { X tmp[i].x = p->y * poly->vertex[lasti].z - p->z * X poly->vertex[lasti].y; X tmp[i].y = p->z * poly->vertex[lasti].x - p->x * X poly->vertex[lasti].z; X tmp[i].z = p->x * poly->vertex[lasti].y - p->y * X poly->vertex[lasti].x; X lasti = i; X p++; X } X X for (i=0; i<poly->numVtces; ++i) X poly->vertex[i] = tmp[i]; X X return poly; X} *-*-END-of-./V/lib/VGetPlanes.c-*-* echo x - ./V/lib/VOpenViewport.c sed 's/^X//' >./V/lib/VOpenViewport.c <<'*-*-END-of-./V/lib/VOpenViewport.c-*-*' X#include "Vlib.h" X XViewport *VOpenViewport (dpy, screen, win, unit, dist, scale, width, height) XDisplay *dpy; Xint screen; XWindow *win; Xdouble unit; Xdouble dist; Xdouble scale; Xint width; Xint height; { X X Viewport *v; X VPoint clip[4]; X X/* X * Allocate space for the Viewport structure X */ X X v = (Viewport *) Vmalloc (sizeof(Viewport)); X X/* X * Calculate screen resolution in pixels per unit. X */ X X v->dist = dist; X v->units = unit; X X v->xres = ((((double) DisplayWidth(dpy,screen)) * unit * 1000.0) / X ((double) DisplayWidthMM(dpy,screen))); X v->yres = ((((double) DisplayHeight(dpy,screen)) * unit * 1000.0) / X ((double) DisplayHeightMM(dpy,screen))); X/* X * Use that info to set scaling factors. X */ X X v->Scale.x = v->xres * dist * scale; X v->Scale.y = v->yres * dist * scale; X v->Scale.z = 1.0; X X v->Middl.x = (double) width / 2.0; X v->Middl.y = (double) height / 2.0; X v->Middl.z = 0.0; X X/* X * Build the clipping planes for our view into the eye space. X */ X X clip[0].x = - width / v->xres / 2.0 / scale; X clip[0].y = - height / v->yres / 2.0 / scale; X clip[0].z = dist; X clip[1].x = - width / v->xres / 2.0 / scale; X clip[1].y = height / v->yres / 2.0 / scale; X clip[1].z = dist; X clip[2].x = width / v->xres / 2.0 / scale; X clip[2].y = height / v->yres / 2.0 / scale; X clip[2].z = dist; X clip[3].x = width / v->xres / 2.0 / scale; X clip[3].y = - height / v->yres / 2.0 / scale; X clip[3].z = dist; X X v->clipPoly = VCreatePolygon (4, clip); X VGetPlanes (v->clipPoly); X X/* X * Fill out the rest of the structure. X */ X X v->flags = VPPerspective | VPClip; X v->dpy = dpy; X v->screen = screen; X v->win = win; X VIdentMatrix (&v->eyeSpace); X v->set = 0; X X/* X * Is this a monochrome situation? X */ X X if (DisplayPlanes (dpy, screen) < 2) { X v->monoPixmap = XCreatePixmap (dpy, RootWindow(dpy, screen), width, height, 1); X v->flags |= VPMono; X } X X return v; X} *-*-END-of-./V/lib/VOpenViewport.c-*-* echo x - ./V/lib/VDrawString.c sed 's/^X//' >./V/lib/VDrawString.c <<'*-*-END-of-./V/lib/VDrawString.c-*-*' X#include "Vlib.h" X Xvoid VDrawString(v, win, gc, p, str, len) XViewport *v; XWindow *win; XGC gc; XVPoint *p; Xchar *str; Xint len; { X X VPoint TmpPt; X register int x, y; X X if (v->flags & VPPerspective) { X TmpPt.x = v->Middl.x + v->Scale.x * p->x / p->z; X TmpPt.y = v->Middl.y - v->Scale.y * p->y / p->z; X } X else { X TmpPt.x = v->Middl.x + v->Scale.x * p->x; X TmpPt.y = v->Middl.y - v->Scale.y * p->y; X } X X x = TmpPt.x + 0.5; X y = TmpPt.y + 0.5; X X XDrawString (v->dpy, win, gc, x, y, str, len); X X} *-*-END-of-./V/lib/VDrawString.c-*-* echo x - ./V/lib/VTransformPolygon.c sed 's/^X//' >./V/lib/VTransformPolygon.c <<'*-*-END-of-./V/lib/VTransformPolygon.c-*-*' X#include "Vlib.h" X XVPolygon *VTransformPolygon (poly, m) XVPolygon *poly; XVMatrix *m; { X X int i; X VPoint tmp; X X for (i=0; i<poly->numVtces; ++i) { X VTransform (&(poly->vertex[i]), m, &tmp); X poly->vertex[i] = tmp; X } X X return poly; X} *-*-END-of-./V/lib/VTransformPolygon.c-*-* echo x - ./V/lib/VCloseViewport.c sed 's/^X//' >./V/lib/VCloseViewport.c <<'*-*-END-of-./V/lib/VCloseViewport.c-*-*' X#include "Vlib.h" X Xvoid VCloseViewport (v) XViewport *v; { X X VDestroyPolygon (v->clipPoly); X free ((char *) v); X} *-*-END-of-./V/lib/VCloseViewport.c-*-* echo x - ./V/lib/VWriteObject.c sed 's/^X//' >./V/lib/VWriteObject.c <<'*-*-END-of-./V/lib/VWriteObject.c-*-*' X#include "Vlib.h" X#include <string.h> X Xint VWriteObject(f, obj) XFILE *f; XVObject *obj; { X X int i, j, k, points; X VPolygon **q; X VPoint *p; X X/* X * Total the number of vertices in all of the object's polygons X */ X X points = 0; X q = obj->polygon; X for (i=0; i<obj->numPolys; ++i) { X points += q[i]->numVtces; X } X X/* X * Print the header X */ X X fprintf (f, "%s\n%d %d\n", obj->name, points, obj->numPolys); X X/* X * Print the point list X */ X X k = 1; X q = obj->polygon; X for (i=0; i<obj->numPolys; ++i) { X for ((j=0, p=q[i]->vertex); j<q[i]->numVtces; (++p, ++j)) { X fprintf(f, "%d %g %g %g\n", k, p->x, p->y, p->z); X ++k; X } X } X X/* X * Print the polygon list X */ X X k = 1; X q = obj->polygon; X for (i=0; i<obj->numPolys; ++i) { X fprintf(f, "%s %d", q[i]->color->color_name, q[i]->numVtces); X for (j=0; j<q[i]->numVtces; ++j) X fprintf(f, " %d", k++); X fprintf (f, "\n"); X } X X return ferror(f) ? -1 : 0; X} *-*-END-of-./V/lib/VWriteObject.c-*-* echo x - ./V/lib/VFillPolygon.c sed 's/^X//' >./V/lib/VFillPolygon.c <<'*-*-END-of-./V/lib/VFillPolygon.c-*-*' X#include "Vlib.h" X X#define COLLAPSEUNUSEDPOINTS X Xvoid VFillPolygon(v, win, gc, poly) XViewport *v; XWindow *win; XGC gc; XVPolygon *poly; { X X VPoint TmpPt, *p; X XPoint xpt[VmaxVP], *lastpt; X int i, k; X Drawable d; X X d = (v->flags & VPMono) ? (Drawable) v->monoPixmap : (Drawable) win; X X if (poly == (VPolygon *) NULL) X return; X X k = 0; X lastpt = &xpt[0]; X for ((i=0, p=poly->vertex); i<poly->numVtces; (++i, ++p)) { X if (v->flags & VPPerspective) { X TmpPt.x = v->Middl.x + v->Scale.x * p->x / p->z; X TmpPt.y = v->Middl.y - v->Scale.y * p->y / p->z; X } X else { X TmpPt.x = v->Middl.x + v->Scale.x * p->x; X TmpPt.y = v->Middl.y - v->Scale.y * p->y; X } X X#ifdef COLLAPSEUNUSEDPOINTS X xpt[k].x = TmpPt.x + 0.5; X xpt[k].y = TmpPt.y + 0.5; X X if (k == 0 || !(xpt[k].x == lastpt->x && xpt[k].y == lastpt->y)) X lastpt = &xpt[k++]; X X#else X xpt[k].x = TmpPt.x + 0.5; X xpt[k].y = TmpPt.y + 0.5; X ++k; X#endif X X } X X if (k > 0) { X#ifdef COLLAPSEUNUSEDPOINTS X if (k == 1) X XDrawPoint (v->dpy, d, gc, xpt[0].x, xpt[0].y); X else if (k == 2) X XDrawLines (v->dpy, d, gc, xpt, 2, CoordModeOrigin); X else X#endif X XFillPolygon (v->dpy, d, gc, xpt, k, Nonconvex, CoordModeOrigin); X } X X} *-*-END-of-./V/lib/VFillPolygon.c-*-* echo x - ./V/lib/VMatrixInvert.c sed 's/^X//' >./V/lib/VMatrixInvert.c <<'*-*-END-of-./V/lib/VMatrixInvert.c-*-*' X#include "Vlib.h" X X#define mod(a) (a < 0 ? a + 3 : a % 3) X XVMatrix *VMatrixInvert(s, d) XVMatrix *s; XVMatrix *d; { X X register int i, j; X register double det; X X det = VMatrixDeterminant (s); X X for (i=0; i<4; ++i) X for (j=0; j<4; ++j) X d->m[j][i] =(s->m[mod(j+1)][mod(i+1)] * X s->m[mod(j+2)][mod(i+2)] - X s->m[mod(j-1)][mod(i+1)] * X s->m[mod(j-2)][mod(i+2)] ) / det; X X return d; X} *-*-END-of-./V/lib/VMatrixInvert.c-*-* echo x - ./V/lib/VMatrixDeterminant.c sed 's/^X//' >./V/lib/VMatrixDeterminant.c <<'*-*-END-of-./V/lib/VMatrixDeterminant.c-*-*' X#include "Vlib.h" X Xdouble VMatrixDeterminant(m) XVMatrix *m; { X X double det; X X det = m->m[0][0] * m->m[1][1] * m->m[2][2] * m->m[3][3] + X m->m[1][0] * m->m[2][1] * m->m[3][2] * m->m[0][3] + X m->m[2][0] * m->m[3][1] * m->m[0][2] * m->m[1][3] + X m->m[3][0] * m->m[0][1] * m->m[1][2] * m->m[2][3] - X m->m[0][3] * m->m[1][2] * m->m[2][1] * m->m[3][0] - X m->m[1][3] * m->m[2][2] * m->m[3][1] * m->m[0][0] - X m->m[2][3] * m->m[3][2] * m->m[0][1] * m->m[1][0] - X m->m[3][3] * m->m[0][2] * m->m[1][1] * m->m[2][0]; X X return det; X} *-*-END-of-./V/lib/VMatrixDeterminant.c-*-* echo x - ./V/lib/VBindColors.c sed 's/^X//' >./V/lib/VBindColors.c <<'*-*-END-of-./V/lib/VBindColors.c-*-*' X#include "Vlib.h" X#include <math.h> X Xint pmap (vec, n) Xint *vec; Xint n; { X X static int itbl[] = {1, 2, 4, 8}; X register int i, r=0; X X for (i=0; i<4; ++i) X if (itbl[i] & n) X r += vec[i]; X return r; X} X Xint VBindColors (v, background) XViewport *v; Xchar * background; { X X register int i, j, k, n, c; X static int parseComplete = 0; X unsigned int pixel; X VColor *p; X Display *dpy; X XColor colorSet[MAXCOLORS]; X unsigned long planemask[PLANES*2]; X unsigned long pixels[1]; X X X if (v->flags & VPMono) X return 0; X X n = PLANES; X c = (int) (pow(2.0, (double) n) + 0.01); X dpy = v->dpy; X X v->cmap = DefaultColormap(dpy, DefaultScreen(dpy)); X X if (XAllocColorCells (dpy, v->cmap, False, planemask, n*2, pixels, 1) == 0) { X fprintf (stderr, "Cannot allocate color cells\n"); X return -1; X } X X/* X * Parse background color X */ X X if (/*parseComplete == 0*/ 1) { X X if (XParseColor(dpy, v->cmap, background, &colorSet[0]) == 0) { X fprintf (stderr, "Can't parse color %s\n", background); X return -1; X } X X/* X * Parse each color defined in the V Color List X */ X X for ((i=0, p=VColorList); p != (VColor *) 0; i++) { X if (i > c) { X fprintf (stderr, "Too many colors selected.\n"); X return -1; X } X if (XParseColor (dpy, v->cmap, p->color_name, &colorSet[i+1]) == 0) { X fprintf (stderr, "Can't parse color %s\n", p->color_name); X return -1; X } X p->xcolor = colorSet[i+1]; X p->index = i+1; X p = p->next; X } X X parseComplete = 1; X } X X v->colors = i+1; X X#ifdef DEBUG X fprintf (stderr, "%d colors defined in the V color list.\n", i); X#endif X X/* X * PAY ATTENTION! X * X * We will now create a two lists of XColors. Each will expose a particular X * drawing buffer (there are two drawing buffers created here). X * A drawing is exposed by passing one of these lists to the XSetColors X * procedure. X * We create a list by iterating through each possible combination of X * pixel values, based on the values returned in pixel and planemask. X * The pixel value is determined using a function called pmap. Each pixel X * value is assigned the appropriate XColor. X */ X X k = 0; X for (i=0; i<v->colors; ++i) { X pixel = v->aPixel[i] = pmap(&planemask[0], i) | pixels[0]; X for (j=0; j<v->colors; ++j) { X v->aColor[k] = colorSet[i]; X v->aColor[k++].pixel = pixel | pmap (&planemask[n], j); X } X } X X v->aMask = pmap(&planemask[0], (c-1)) | pixels[0]; X X k = 0; X for (i=0; i<v->colors; ++i) { X pixel = v->bPixel[i] = pmap(&planemask[n], i) | pixels[0]; X for (j=0; j<v->colors; ++j) { X v->bColor[k] = colorSet[i]; X v->bColor[k++].pixel = pixel | pmap(&planemask[0], j); X } X } X X v->bMask = pmap(&planemask[n], (c-1)) | pixels[0]; X X return 0; X} *-*-END-of-./V/lib/VBindColors.c-*-* echo x - ./V/lib/VExposeBuffer.c sed 's/^X//' >./V/lib/VExposeBuffer.c <<'*-*-END-of-./V/lib/VExposeBuffer.c-*-*' X#include "Vlib.h" X Xvoid VExposeBuffer (v, gc) XViewport *v; XGC gc; { X X VColor *p; X unsigned long *q; X X/* X * this is one area where more-than-one window per display gets hairy -- this call X * really exposes the drawings buffered in all windows associated with a given display. X * the calling sequence needs to be changed to reflect this. X */ X X if (v->flags & VPMono) { X XCopyArea (v->dpy, v->monoPixmap, v->win, gc, X 0, 0, v->width, v->height, 0, 0); X XSetForeground (v->dpy, gc, WhitePixel(v->dpy, v->screen)); X XFillRectangle (v->dpy, v->monoPixmap, gc, 0, 0, v->width, v->height); X XSetForeground (v->dpy, gc, BlackPixel(v->dpy, v->screen)); X return; X } X X if (v->set == 0) { X v->set = 1; X XStoreColors (v->dpy, v->cmap, v->aColor, v->colors*v->colors); X v->pixel = &(v->bPixel[0]); X XSetPlaneMask (v->dpy, gc, v->bMask); X v->mask = v->bMask; X /* X for ((p=VColorList, q = &(v->bPixel[1])); p != (VColor *) 0; ++q) { X p->xcolor.pixel = *q; X p = p->next; X } X */ X } X else { X v->set = 0; X XStoreColors (v->dpy, v->cmap, v->bColor, v->colors*v->colors); X v->pixel = &(v->aPixel[0]); X XSetPlaneMask (v->dpy, gc, v->aMask); X v->mask = v->aMask; X /* X for ((p=VColorList, q = &(v->aPixel[1])); p != (VColor *) 0; ++q) { X p->xcolor.pixel = *q; X p = p->next; X } X */ X } X X/* XSync (v->dpy, False); */ X XFlush (v->dpy); X} *-*-END-of-./V/lib/VExposeBuffer.c-*-* echo x - ./V/lib/VAllocColor.c sed 's/^X//' >./V/lib/VAllocColor.c <<'*-*-END-of-./V/lib/VAllocColor.c-*-*' X#include "Vlib.h" X#include <string.h> X XVColor *VAllocColor (name) Xchar *name; { X X VColor *p=VColorList, *prev=0, **q; X X/* X * Search for this color among those already allocated. X */ X X while (p != (VColor *) 0) { X if (strcmp(p->color_name, name) == 0) { X return p; X } X prev = p; X p = p->next; X } X X/* X * The color was not in the list; allocate a new list element. X */ X X if (prev == (VColor *)0) X q = &VColorList; X else X q = &(prev->next); X X *q = (VColor *) Vmalloc (sizeof(VColor)); X (*q)->color_name = strdup (name); X (*q)->index = -1; X (*q)->next = 0; X X return *q; X} *-*-END-of-./V/lib/VAllocColor.c-*-* echo x - ./V/lib/VResizeViewport.c sed 's/^X//' >./V/lib/VResizeViewport.c <<'*-*-END-of-./V/lib/VResizeViewport.c-*-*' X#include "Vlib.h" X Xvoid VResizeViewport (v, unit, dist, scale, width, height) XViewport *v; Xdouble unit; Xdouble dist; Xdouble scale; Xint width; Xint height; { X X VPoint clip[4]; X X/* X * Allocate a new monochrome bitmap to buffer the displayed image. X */ X X if (v->flags & VPMono) { X XFreePixmap (v->dpy, v->monoPixmap); X v->monoPixmap = XCreatePixmap (v->dpy, X RootWindow(v->dpy, v->screen), v->width, v->height, 1); X } X X/* X * Calculate screen resolution in pixels per unit. X */ X X v->dist = dist; X v->units = unit; X X/* X * Use that info to set scaling factors. X */ X X v->Scale.x = v->xres * dist * scale; X v->Scale.y = v->yres * dist * scale; X v->Scale.z = 1.0; X X v->Middl.x = (double) width / 2.0; X v->Middl.y = (double) height / 2.0; X v->Middl.z = 0.0; X X/* X * Build the clipping planes for our view into the eye space. X */ X X clip[0].x = - width / v->xres / 2.0 / scale; X clip[0].y = - height / v->yres / 2.0 / scale; X clip[0].z = dist; X clip[1].x = - width / v->xres / 2.0 / scale; X clip[1].y = height / v->yres / 2.0 / scale; X clip[1].z = dist; X clip[2].x = width / v->xres / 2.0 / scale; X clip[2].y = height / v->yres / 2.0 / scale; X clip[2].z = dist; X clip[3].x = width / v->xres / 2.0 / scale; X clip[3].y = - height / v->yres / 2.0 / scale; X clip[3].z = dist; X X v->clipPoly = VCreatePolygon (4, clip); X VGetPlanes (v->clipPoly); X} *-*-END-of-./V/lib/VResizeViewport.c-*-* echo x - ./V/test sed 's/^X//' >./V/test <<'*-*-END-of-./V/test-*-*' *-*-END-of-./V/test-*-* echo x - ./V/test/app.c sed 's/^X//' >./V/test/app.c <<'*-*-END-of-./V/test/app.c-*-*' X#include "../lib/Vlib.h" X#include <X11/Xutil.h> X#include <math.h> X X#define VIEW2 X Xextern Display *dpy; Xextern Window win; Xextern GC curGC; Xextern XSizeHints xsh; Xextern int mono; X XVPolygon *poly[1024]; X Xvoid placeObject (obj, loc, roll, pitch, yaw, poly, cnt) XVObject *obj; XVPoint loc; Xdouble roll; Xdouble pitch; Xdouble yaw; XVPolygon **poly; Xint *cnt; { X X int i, j, k; X VPoint *q, tmp; X VMatrix mtx; X X j = *cnt; X X VIdentMatrix (&mtx); X if (roll != 0.0) X VRotate (&mtx, XRotation, roll); X if (pitch != 0.0) X VRotate (&mtx, YRotation, pitch); X if (yaw != 0.0) X VRotate (&mtx, ZRotation, yaw); X VTranslatePoint (&mtx, loc); X X for (i=0; i<obj->numPolys; ++i) { X X if (poly[j] != (VPolygon *) NULL) X VDestroyPolygon (poly[j]); X X poly[j] = VCopyPolygon(obj->polygon[i]); X for ((k=0, q=poly[j]->vertex); k<poly[j]->numVtces; (++k, ++q)) { X VTransform(q, &mtx, &tmp); X *q = tmp; X } X ++j; X } X X *cnt = j; X} X Xapp(background) Xchar *background; { X X int i, cnt, black; X unsigned int j, curPixel = 0; X char *str, YD[32]; X FILE *file; X VObject *obj, *ftr, *mig; X VPoint viewPt, centerInt, up, ftrLoc, ftrLoc2, ftrLoc3, migLoc1, migLoc2; X Viewport *v; X double dist, p, migV, v1, a, migRoll; X double updateRate = 5.0; X X str = "fullrwy"; X X if ((file = fopen(str, "r")) == (FILE *) NULL) { X perror ("Cannot open object file"); X exit (1); X } X X if ((obj = VReadObject(file)) == (VObject *) NULL) { X fprintf (stderr, "Error reading the object definition.\n"); X exit (1); X } X X fclose (file); X X str = "f16"; X X if ((file = fopen(str, "r")) == (FILE *) NULL) { X perror ("Cannot open object file"); X exit (1); X } X X if ((ftr = VReadObject(file)) == (VObject *) NULL) { X fprintf (stderr, "Error reading the object definition.\n"); X exit (1); X } X X fclose (file); X X X str = "mig23"; X X if ((file = fopen(str, "r")) == (FILE *) NULL) { X perror ("Cannot open object file"); X exit (1); X } X X if ((mig = VReadObject(file)) == (VObject *) NULL) { X fprintf (stderr, "Error reading the object definition.\n"); X exit (1); X } X X fclose (file); X X v = VOpenViewport (dpy, 0, win, 12 * 25.4 / 1000.0, 1.5, 1.0, xsh.width, X xsh.height); X X if (VBindColors (v, background) < 0) { X fprintf (stderr, "Error in binding colors.\n"); X exit (1); X } X VExposeBuffer (v, curGC); X X X ftrLoc.x = 80.0; X ftrLoc.y = -110.0; X ftrLoc.z = -7.0; X X ftrLoc2.x = 475.0; X ftrLoc2.y = 3.7; X ftrLoc2.z = -7.0; X X migLoc1.z = -310.0; X migLoc2.z = -320.0; X migV = 370.0 / 3600.0 * 5280.0 / updateRate; /* mig speed in fps */ X migV = migV / (2500.0 * 3.14 * 2.0); /* mig speed in rad/update */ X migRoll = 28.0 * 3.14 / 180.0; X a = 90.0 * 3.14 / 180.0; X X v1 = 130.0 / 3600.0 * 5280.0 / updateRate; X X centerInt.x = 80.0; X centerInt.y = -90.0; X centerInt.z = -6.0; X X dist = -10000.0; p = 0; X X while (1) { X X ftrLoc3.x = dist+150.0; X ftrLoc3.y = -15.0; X ftrLoc3.z = (dist+150.0) * 50.0 / 1000.0 - 40.0; X if (ftrLoc3.z > -13.0) X ftrLoc3.z = -13.0; X viewPt.x = dist; X viewPt.y = 15.0; X viewPt.z = dist * 50.0 / 1000.0 - 50.0; X if (viewPt.z > -13.0) X viewPt.z = -13.0; X up = viewPt; X up.z = up.z - 1.0; X if (viewPt.z < -14.0) X up.y = up.y + 0.1 * sin(p); X p = p + 0.03; X dist = dist + v1; X if (dist > 10000.0) X exit (1); X X migLoc1.x = 0.0 + 2200.0 * cos (a); X migLoc1.y = -800.0 + 2200.0 * sin (a); X migLoc2.x = 0.0 + 2225.0 * cos (a-0.04); X migLoc2.y = -800.0 + 2225.0 * sin (a-0.04); X a = a + migV; X X/* X * Now create a vector containing all polygons from the objects. X */ X X for (i=0; i<obj->numPolys; ++i) { X if (poly[i] != (VPolygon *) NULL) X VDestroyPolygon(poly[i]); X poly[i] = VCopyPolygon(obj->polygon[i]); X } X cnt = obj->numPolys; X#ifndef VIEW3 X placeObject (ftr, ftrLoc, 0.0, 0.0, 90.0*3.14/180.0, &poly[0], &cnt); X#endif X placeObject (ftr, ftrLoc2, 0.0, 0.0, -3.0*3.14/180.0, &poly[0], &cnt); X placeObject (ftr, ftrLoc3, 0.0, -11.0*3.14/180.0, 0.0, &poly[0], &cnt); X#ifndef VIEW1 X placeObject (ftr, viewPt, 0.0, -11.0*3.14/180.0, 0.0, &poly[0], &cnt); X#endif X placeObject (mig, migLoc1, migRoll, 0.0, a+90.0*3.14/180.0, &poly[0], &cnt); X#ifndef VIEW2 X placeObject (mig, migLoc2, migRoll, 0.0, a+90.0*3.14/180.0, &poly[0], &cnt); X#endif X X/* X * Calculate eye space information based on our current viewpoint. X */ X X#ifdef VIEW1 X VGetEyeSpace (v, viewPt, centerInt, up); X#endif X#ifdef VIEW2 X up = migLoc2; X up.z = up.z - 1.0; X VGetEyeSpace (v, migLoc2, viewPt, up); X#endif X#ifdef VIEW3 X up = ftrLoc; X up.z = up.z - 1.0; X VGetEyeSpace (v, ftrLoc, viewPt, up); X#endif X X black = BlackPixel(dpy, 0); X X X/* X * First clip, then draw each polygon. X */ X X for (i=0; i<cnt; ++i) { X X if (mono) X XSetForeground (dpy, curGC, black); X X VTransformPolygon (poly[i], &(v->eyeSpace)); X poly[i] = VClipPolygon(poly[i], v->clipPoly); X if (poly[i]) { X if (mono == 0 && curPixel != (j=v->pixel[poly[i]->color->index])) { X XSetForeground (dpy, curGC, j); X curPixel = j; X } X if (mono) X VDrawPolygon (v, win, curGC, poly[i]); X else X VFillPolygon (v, win, curGC, poly[i]); X } X X } X X VExposeBuffer (v, curGC); X X/* X * Erase the un-displayed planes. X */ X X if (mono == 0) { X curPixel = *(v->pixel); X XSetForeground (dpy, curGC, curPixel); X XFillRectangle (dpy, win, curGC, 0, 0, xsh.width, xsh.height); X } X X } X X} *-*-END-of-./V/test/app.c-*-* echo x - ./V/test/animate.c sed 's/^X//' >./V/test/animate.c <<'*-*-END-of-./V/test/animate.c-*-*' X#include <stdio.h> X#include <X11/Xlib.h> X#include <X11/Xutil.h> X Xstatic char *id = "V library animation test -- Riley Rainey"; X X#define STRING "Double Buffered Animation" X#define BORDER 1 X#define FONT "fixed" X#define ARG_FONT "font" X#define ARG_BORDER_COLOR "borderColor" X#define ARG_BACKGROUND "background" X#define ARG_BORDER "borderWidth" X#define ARG_GEOMETRY "geometry" X#define DEFAULT_BACKGROUND "#29350B" X#define DEFAULT_BORDER "black" X X#define SW_BORDER 1 X#define SW_BG 3 X#define SW_GEOM 4 X Xstruct { X char *sw; X int value; X } switches[] = { X "-bw", SW_BORDER, X "-bg", SW_BG, X "-geometry", SW_GEOM, X NULL, 0}, *swp; X Xchar *background = NULL, *filename; Xint borderWidth = 1; Xint mono; X X X/* X * This structure forms the WM_HINTS property of the window, X * letting the window manager know how to handle this window. X * See Section 9.1 of the Xlib manual. X */ XXWMHints xwmh = { X (InputHint|StateHint), /* flags */ X False, /* input */ X NormalState, /* initial_state */ X 0, /* icon pixmap */ X 0, /* icon window */ X 0, 0, /* icon location */ X 0, /* icon mask */ X 0, /* Window group */ X}; X XDisplay *dpy; /* X server connection */ XWindow win; /* Window ID */ XGC gc; /* GC to draw with */ XXGCValues gcv; XXSizeHints xsh; /* Size hints for window manager */ XColormap cmap; X Xstatic unsigned long planemask [6]; /* plane masks from XAllocColorCells */ Xstatic unsigned long pixels [16]; /* pixel values from XAllocColorCells */ XGC curGC; X Xmain(argc,argv) X int argc; X char **argv; X{ X char *fontName; /* Name of font for string */ X XFontStruct *fontstruct; /* Font descriptor */ X unsigned long ftw, fth, pad;/* Font size parameters */ X unsigned long bg, bd; /* Pixel values */ X unsigned long bw; /* Border width */ X char *tempstr; /* Temporary string */ X XColor color; /* Temporary color */ X XEvent event; /* Event received */ X char *geomSpec; /* Window geometry string */ X XSetWindowAttributes xswa; /* Temporary Set Window Attribute struct */ X char **c; X int i; X X/* X * Parse command line X */ X X for (c= &argv[1]; *c != (char *) NULL; ++c) X if (**c == '-') { X for (swp= &switches[0]; swp->value != 0; ++swp) X if (strcmp (swp->sw, *c) == 0) { X switch (swp->value) { X case SW_GEOM: X geomSpec = *(++c); X break; X case SW_BG: X background = *(++c); X break; X case SW_BORDER: X borderWidth = atoi (*(++c)); X break; X } X break; X } X if (swp->value == 0) { X fprintf (stderr, "%s: invalid switch %s", argv[0], *c); X exit (1); X } X } X else X filename = *c; X X /* X * Open the display using the $DISPLAY environment variable to locate X * the X server. See Section 2.1. X */ X if ((dpy = XOpenDisplay(NULL)) == NULL) { X fprintf(stderr, "%s: can't open %s\n", argv[0], XDisplayName(NULL)); X exit(1); X } X X mono = (DisplayPlanes(dpy, 0) < 2) ? 1 : 0; X X /* X * Load the font to use. See Sections 10.2 & 6.5.1 X */ X if ((fontName = XGetDefault(dpy, argv[0], ARG_FONT)) == NULL) { X fontName = FONT; X } X if ((fontstruct = XLoadQueryFont(dpy, fontName)) == NULL) { X fprintf(stderr, "%s: display %s doesn't know font %s\n", X argv[0], DisplayString(dpy), fontName); X exit(1); X } X fth = fontstruct->max_bounds.ascent + fontstruct->max_bounds.descent; X ftw = fontstruct->max_bounds.width; X X /* X * Select colors for the border, the window background, and the X * foreground. We use the default colormap to allocate the colors in. X * See Sections 2.2.1, 5.1.2, & 10.4. X */ X X cmap = DefaultColormap(dpy, DefaultScreen(dpy)); X X if ((tempstr = XGetDefault(dpy, argv[0], ARG_BORDER_COLOR)) == NULL) X tempstr = DEFAULT_BORDER; X if (XParseColor(dpy, cmap, tempstr, &color) == 0) { X fprintf (stderr, "Can't get border color %s\n", tempstr); X exit (1); X } X bd = color.pixel; X X/* X * Allocate Color Planes and one extra cell for the border color. X */ X X if (mono == 0) X if (XAllocColorCells (dpy, cmap, False, planemask, 0, pixels, 1) == 0) { X fprintf (stderr, "Cannot allocate color cells\n"); X exit (1); X } X bg = WhitePixel (dpy, 0); X X/* X * Store border color X */ X X if (mono) X bd = BlackPixel (dpy, 0); X else { X bd = color.pixel = pixels [0]; X XStoreColor (dpy, cmap, &color); X } X X/* X * Background Color (pixels [0] defines this). X */ X X if (background == NULL) X background = XGetDefault (dpy, argv[0], ARG_BACKGROUND); X if (background == NULL) X background = DEFAULT_BACKGROUND; X X /* X * Set the border width of the window, and the gap between the text X * and the edge of the window, "pad". X */ X pad = BORDER; X if ((tempstr = XGetDefault(dpy, argv[0], ARG_BORDER)) == NULL) X bw = 1; X else X bw = atoi(tempstr); X X /* X * Deal with providing the window with an initial position & size. X * Fill out the XSizeHints struct to inform the window manager. See X * Sections 9.1.6 & 10.3. X */ X if (geomSpec == NULL) X geomSpec = XGetDefault(dpy, argv[0], ARG_GEOMETRY); X X if (geomSpec == NULL) { X /* X * The defaults database doesn't contain a specification of the X * initial size & position - fit the window to the text and locate X * it in the center of the screen. X */ X xsh.flags = (PPosition | PSize); X xsh.height = 800; X xsh.width = 1000; X xsh.x = (DisplayWidth(dpy, DefaultScreen(dpy)) - xsh.width) / 2; X xsh.y = (DisplayHeight(dpy, DefaultScreen(dpy)) - xsh.height) / 2; X } X else { X int bitmask; X X bzero(&xsh, sizeof(xsh)); X bitmask = XGeometry(dpy, DefaultScreen(dpy), geomSpec, geomSpec, X bw, ftw, fth, pad, pad, &(xsh.x), &(xsh.y), X &(xsh.width), &(xsh.height)); X if (bitmask & (XValue | YValue)) { X xsh.flags |= USPosition; X } X if (bitmask & (WidthValue | HeightValue)) { X xsh.flags |= USSize; X } X } X X /* X * Create the Window with the information in the XSizeHints, the X * border width, and the border & background pixels. See Section 3.3. X */ X win = XCreateSimpleWindow(dpy, DefaultRootWindow(dpy), X xsh.x, xsh.y, xsh.width, xsh.height, X bw, bd, bg); X X /* X * Set the standard properties for the window managers. See Section X * 9.1. X */ X XSetStandardProperties(dpy, win, STRING, STRING, None, argv, argc, &xsh); X XSetWMHints(dpy, win, &xwmh); X X /* X * Ensure that the window's colormap field points to the default X * colormap, so that the window manager knows the correct colormap to X * use for the window. See Section 3.2.9. Also, set the window's Bit X * Gravity to reduce Expose events. X */ X xswa.colormap = DefaultColormap(dpy, DefaultScreen(dpy)); X xswa.bit_gravity = NorthWestGravity; X XChangeWindowAttributes(dpy, win, (CWColormap | CWBitGravity), &xswa); X X /* X * Create the GC for drawing the picture. X */ X gcv.font = fontstruct->fid; X curGC = XCreateGC(dpy, win, GCFont, &gcv); X X /* X * Specify the event types we're interested in - only Exposures. See X * Sections 8.5 & 8.4.5.1 X */ X XSelectInput(dpy, win, ExposureMask); X X /* X * Map the window to make it visible. See Section 3.5. X */ X XMapWindow(dpy, win); X X app(background); X X exit(1); X} X *-*-END-of-./V/test/animate.c-*-* echo x - ./V/test/rwy sed 's/^X//' >./V/test/rwy <<'*-*-END-of-./V/test/rwy-*-*' XRunway X280 69 X1 0.000000 -75.000000 0.000000 X2 12000.000000 -75.000000 0.000000 X3 12000.000000 75.000000 0.000000 X4 0.000000 75.000000 0.000000 X5 0.000000 -75.000000 0.000000 X6 12000.000000 -75.000000 0.000000 X7 12000.000000 -70.000000 0.000000 X8 0.000000 -70.000000 0.000000 X9 0.000000 75.000000 0.000000 X10 12000.000000 75.000000 0.000000 X11 12000.000000 70.000000 0.000000 X12 0.000000 70.000000 0.000000 X13 1000.000000 -66.000000 0.000000 X14 1125.000000 -66.000000 0.000000 X15 1125.000000 -36.000000 0.000000 X16 1000.000000 -36.000000 0.000000 X17 1000.000000 66.000000 0.000000 X18 1125.000000 66.000000 0.000000 X19 1125.000000 36.000000 0.000000 X20 1000.000000 36.000000 0.000000 X21 11000.000000 -66.000000 0.000000 X22 10875.000000 -66.000000 0.000000 X23 10875.000000 -36.000000 0.000000 X24 11000.000000 -36.000000 0.000000 X25 11000.000000 66.000000 0.000000 X26 10875.000000 66.000000 0.000000 X27 10875.000000 36.000000 0.000000 X28 11000.000000 36.000000 0.000000 X29 4.000000 -66.000000 0.000000 X30 129.000000 -66.000000 0.000000 X31 129.000000 -54.888889 0.000000 X32 4.000000 -54.888889 0.000000 X33 4.000000 -50.888889 0.000000 X34 129.000000 -50.888889 0.000000 X35 129.000000 -39.777779 0.000000 X36 4.000000 -39.777779 0.000000 X37 4.000000 -35.777779 0.000000 X38 129.000000 -35.777779 0.000000 X39 129.000000 -24.666666 0.000000 X40 4.000000 -24.666666 0.000000 X41 4.000000 -20.666666 0.000000 X42 129.000000 -20.666666 0.000000 X43 129.000000 -9.555555 0.000000 X44 4.000000 -9.555555 0.000000 X45 4.000000 9.555555 0.000000 X46 129.000000 9.555555 0.000000 X47 129.000000 20.666666 0.000000 X48 4.000000 20.666666 0.000000 X49 4.000000 24.666666 0.000000 X50 129.000000 24.666666 0.000000 X51 129.000000 35.777779 0.000000 X52 4.000000 35.777779 0.000000 X53 4.000000 39.777779 0.000000 X54 129.000000 39.777779 0.000000 X55 129.000000 50.888889 0.000000 X56 4.000000 50.888889 0.000000 X57 4.000000 54.888889 0.000000 X58 129.000000 54.888889 0.000000 X59 129.000000 66.000000 0.000000 X60 4.000000 66.000000 0.000000 X61 11996.000000 -66.000000 0.000000 X62 11871.000000 -66.000000 0.000000 X63 11871.000000 -54.888889 0.000000 X64 11996.000000 -54.888889 0.000000 X65 11996.000000 -50.888889 0.000000 X66 11871.000000 -50.888889 0.000000 X67 11871.000000 -39.777779 0.000000 X68 11996.000000 -39.777779 0.000000 X69 11996.000000 -35.777779 0.000000 X70 11871.000000 -35.777779 0.000000 X71 11871.000000 -24.666666 0.000000 X72 11996.000000 -24.666666 0.000000 X73 11996.000000 -20.666666 0.000000 X74 11871.000000 -20.666666 0.000000 X75 11871.000000 -9.555555 0.000000 X76 11996.000000 -9.555555 0.000000 X77 11996.000000 9.555555 0.000000 X78 11871.000000 9.555555 0.000000 X79 11871.000000 20.666666 0.000000 X80 11996.000000 20.666666 0.000000 X81 11996.000000 24.666666 0.000000 X82 11871.000000 24.666666 0.000000 X83 11871.000000 35.777779 0.000000 X84 11996.000000 35.777779 0.000000 X85 11996.000000 39.777779 0.000000 X86 11871.000000 39.777779 0.000000 X87 11871.000000 50.888889 0.000000 X88 11996.000000 50.888889 0.000000 X89 11996.000000 54.888889 0.000000 X90 11871.000000 54.888889 0.000000 X91 11871.000000 66.000000 0.000000 X92 11996.000000 66.000000 0.000000 X93 258.000000 -2.500000 0.000000 X94 383.000000 -2.500000 0.000000 X95 383.000000 2.500000 0.000000 X96 258.000000 2.500000 0.000000 X97 508.000000 -2.500000 0.000000 X98 633.000000 -2.500000 0.000000 X99 633.000000 2.500000 0.000000 X100 508.000000 2.500000 0.000000 X101 758.000000 -2.500000 0.000000 X102 883.000000 -2.500000 0.000000 X103 883.000000 2.500000 0.000000 X104 758.000000 2.500000 0.000000 X105 1008.000000 -2.500000 0.000000 X106 1133.000000 -2.500000 0.000000 X107 1133.000000 2.500000 0.000000 X108 1008.000000 2.500000 0.000000 X109 1258.000000 -2.500000 0.000000 X110 1383.000000 -2.500000 0.000000 X111 1383.000000 2.500000 0.000000 X112 1258.000000 2.500000 0.000000 X113 1508.000000 -2.500000 0.000000 X114 1633.000000 -2.500000 0.000000 X115 1633.000000 2.500000 0.000000 X116 1508.000000 2.500000 0.000000 X117 1758.000000 -2.500000 0.000000 X118 1883.000000 -2.500000 0.000000 X119 1883.000000 2.500000 0.000000 X120 1758.000000 2.500000 0.000000 X121 2008.000000 -2.500000 0.000000 X122 2133.000000 -2.500000 0.000000 X123 2133.000000 2.500000 0.000000 X124 2008.000000 2.500000 0.000000 X125 2258.000000 -2.500000 0.000000 X126 2383.000000 -2.500000 0.000000 X127 2383.000000 2.500000 0.000000 X128 2258.000000 2.500000 0.000000 X129 2508.000000 -2.500000 0.000000 X130 2633.000000 -2.500000 0.000000 X131 2633.000000 2.500000 0.000000 X132 2508.000000 2.500000 0.000000 X133 2758.000000 -2.500000 0.000000 X134 2883.000000 -2.500000 0.000000 X135 2883.000000 2.500000 0.000000 X136 2758.000000 2.500000 0.000000 X137 3008.000000 -2.500000 0.000000 X138 3133.000000 -2.500000 0.000000 X139 3133.000000 2.500000 0.000000 X140 3008.000000 2.500000 0.000000 X141 3258.000000 -2.500000 0.000000 X142 3383.000000 -2.500000 0.000000 X143 3383.000000 2.500000 0.000000 X144 3258.000000 2.500000 0.000000 X145 3508.000000 -2.500000 0.000000 X146 3633.000000 -2.500000 0.000000 X147 3633.000000 2.500000 0.000000 X148 3508.000000 2.500000 0.000000 X149 3758.000000 -2.500000 0.000000 X150 3883.000000 -2.500000 0.000000 X151 3883.000000 2.500000 0.000000 X152 3758.000000 2.500000 0.000000 X153 4008.000000 -2.500000 0.000000 X154 4133.000000 -2.500000 0.000000 X155 4133.000000 2.500000 0.000000 X156 4008.000000 2.500000 0.000000 X157 4258.000000 -2.500000 0.000000 X158 4383.000000 -2.500000 0.000000 X159 4383.000000 2.500000 0.000000 X160 4258.000000 2.500000 0.000000 X161 4508.000000 -2.500000 0.000000 X162 4633.000000 -2.500000 0.000000 X163 4633.000000 2.500000 0.000000 X164 4508.000000 2.500000 0.000000 X165 4758.000000 -2.500000 0.000000 X166 4883.000000 -2.500000 0.000000 X167 4883.000000 2.500000 0.000000 X168 4758.000000 2.500000 0.000000 X169 5008.000000 -2.500000 0.000000 X170 5133.000000 -2.500000 0.000000 X171 5133.000000 2.500000 0.000000 X172 5008.000000 2.500000 0.000000 X173 5258.000000 -2.500000 0.000000 X174 5383.000000 -2.500000 0.000000 X175 5383.000000 2.500000 0.000000 X176 5258.000000 2.500000 0.000000 X177 5508.000000 -2.500000 0.000000 X178 5633.000000 -2.500000 0.000000 X179 5633.000000 2.500000 0.000000 X180 5508.000000 2.500000 0.000000 X181 5758.000000 -2.500000 0.000000 X182 5883.000000 -2.500000 0.000000 X183 5883.000000 2.500000 0.000000 X184 5758.000000 2.500000 0.000000 X185 6008.000000 -2.500000 0.000000 X186 6133.000000 -2.500000 0.000000 X187 6133.000000 2.500000 0.000000 X188 6008.000000 2.500000 0.000000 X189 6258.000000 -2.500000 0.000000 X190 6383.000000 -2.500000 0.000000 X191 6383.000000 2.500000 0.000000 X192 6258.000000 2.500000 0.000000 X193 6508.000000 -2.500000 0.000000 X194 6633.000000 -2.500000 0.000000 X195 6633.000000 2.500000 0.000000 X196 6508.000000 2.500000 0.000000 X197 6758.000000 -2.500000 0.000000 X198 6883.000000 -2.500000 0.000000 X199 6883.000000 2.500000 0.000000 X200 6758.000000 2.500000 0.000000 X201 7008.000000 -2.500000 0.000000 X202 7133.000000 -2.500000 0.000000 X203 7133.000000 2.500000 0.000000 X204 7008.000000 2.500000 0.000000 X205 7258.000000 -2.500000 0.000000 X206 7383.000000 -2.500000 0.000000 X207 7383.000000 2.500000 0.000000 X208 7258.000000 2.500000 0.000000 X209 7508.000000 -2.500000 0.000000 X210 7633.000000 -2.500000 0.000000 X211 7633.000000 2.500000 0.000000 X212 7508.000000 2.500000 0.000000 X213 7758.000000 -2.500000 0.000000 X214 7883.000000 -2.500000 0.000000 X215 7883.000000 2.500000 0.000000 X216 7758.000000 2.500000 0.000000 X217 8008.000000 -2.500000 0.000000 X218 8133.000000 -2.500000 0.000000 X219 8133.000000 2.500000 0.000000 X220 8008.000000 2.500000 0.000000 X221 8258.000000 -2.500000 0.000000 X222 8383.000000 -2.500000 0.000000 X223 8383.000000 2.500000 0.000000 X224 8258.000000 2.500000 0.000000 X225 8508.000000 -2.500000 0.000000 X226 8633.000000 -2.500000 0.000000 X227 8633.000000 2.500000 0.000000 X228 8508.000000 2.500000 0.000000 X229 8758.000000 -2.500000 0.000000 X230 8883.000000 -2.500000 0.000000 X231 8883.000000 2.500000 0.000000 X232 8758.000000 2.500000 0.000000 X233 9008.000000 -2.500000 0.000000 X234 9133.000000 -2.500000 0.000000 X235 9133.000000 2.500000 0.000000 X236 9008.000000 2.500000 0.000000 X237 9258.000000 -2.500000 0.000000 X238 9383.000000 -2.500000 0.000000 X239 9383.000000 2.500000 0.000000 X240 9258.000000 2.500000 0.000000 X241 9508.000000 -2.500000 0.000000 X242 9633.000000 -2.500000 0.000000 X243 9633.000000 2.500000 0.000000 X244 9508.000000 2.500000 0.000000 X245 9758.000000 -2.500000 0.000000 X246 9883.000000 -2.500000 0.000000 X247 9883.000000 2.500000 0.000000 X248 9758.000000 2.500000 0.000000 X249 10008.000000 -2.500000 0.000000 X250 10133.000000 -2.500000 0.000000 X251 10133.000000 2.500000 0.000000 X252 10008.000000 2.500000 0.000000 X253 10258.000000 -2.500000 0.000000 X254 10383.000000 -2.500000 0.000000 X255 10383.000000 2.500000 0.000000 X256 10258.000000 2.500000 0.000000 X257 10508.000000 -2.500000 0.000000 X258 10633.000000 -2.500000 0.000000 X259 10633.000000 2.500000 0.000000 X260 10508.000000 2.500000 0.000000 X261 10758.000000 -2.500000 0.000000 X262 10883.000000 -2.500000 0.000000 X263 10883.000000 2.500000 0.000000 X264 10758.000000 2.500000 0.000000 X265 11008.000000 -2.500000 0.000000 X266 11133.000000 -2.500000 0.000000 X267 11133.000000 2.500000 0.000000 X268 11008.000000 2.500000 0.000000 X269 11258.000000 -2.500000 0.000000 X270 11383.000000 -2.500000 0.000000 X271 11383.000000 2.500000 0.000000 X272 11258.000000 2.500000 0.000000 X273 11508.000000 -2.500000 0.000000 X274 11633.000000 -2.500000 0.000000 X275 11633.000000 2.500000 0.000000 X276 11508.000000 2.500000 0.000000 X277 11758.000000 -2.500000 0.000000 X278 11883.000000 -2.500000 0.000000 X279 11883.000000 2.500000 0.000000 X280 11758.000000 2.500000 0.000000 Xwhite 4 5 6 7 8 Xwhite 4 9 10 11 12 Xwhite 4 13 14 15 16 Xwhite 4 17 18 19 20 Xwhite 4 21 22 23 24 Xwhite 4 25 26 27 28 Xwhite 4 29 30 31 32 Xwhite 4 33 34 35 36 Xwhite 4 37 38 39 40 Xwhite 4 41 42 43 44 Xwhite 4 45 46 47 48 Xwhite 4 49 50 51 52 Xwhite 4 53 54 55 56 Xwhite 4 57 58 59 60 Xwhite 4 61 62 63 64 Xwhite 4 65 66 67 68 Xwhite 4 69 70 71 72 Xwhite 4 73 74 75 76 Xwhite 4 77 78 79 80 Xwhite 4 81 82 83 84 Xwhite 4 85 86 87 88 Xwhite 4 89 90 91 92 Xwhite 4 93 94 95 96 Xwhite 4 97 98 99 100 Xwhite 4 101 102 103 104 Xwhite 4 105 106 107 108 Xwhite 4 109 110 111 112 Xwhite 4 113 114 115 116 Xwhite 4 117 118 119 120 Xwhite 4 121 122 123 124 Xwhite 4 125 126 127 128 Xwhite 4 129 130 131 132 Xwhite 4 133 134 135 136 Xwhite 4 137 138 139 140 Xwhite 4 141 142 143 144 Xwhite 4 145 146 147 148 Xwhite 4 149 150 151 152 Xwhite 4 153 154 155 156 Xwhite 4 157 158 159 160 Xwhite 4 161 162 163 164 Xwhite 4 165 166 167 168 Xwhite 4 169 170 171 172 Xwhite 4 173 174 175 176 Xwhite 4 177 178 179 180 Xwhite 4 181 182 183 184 Xwhite 4 185 186 187 188 Xwhite 4 189 190 191 192 Xwhite 4 193 194 195 196 Xwhite 4 197 198 199 200 Xwhite 4 201 202 203 204 Xwhite 4 205 206 207 208 Xwhite 4 209 210 211 212 Xwhite 4 213 214 215 216 Xwhite 4 217 218 219 220 Xwhite 4 221 222 223 224 Xwhite 4 225 226 227 228 Xwhite 4 229 230 231 232 Xwhite 4 233 234 235 236 Xwhite 4 237 238 239 240 Xwhite 4 241 242 243 244 Xwhite 4 245 246 247 248 Xwhite 4 249 250 251 252 Xwhite 4 253 254 255 256 Xwhite 4 257 258 259 260 Xwhite 4 261 262 263 264 Xwhite 4 265 266 267 268 Xwhite 4 269 270 271 272 Xwhite 4 273 274 275 276 Xwhite 4 277 278 279 280 *-*-END-of-./V/test/rwy-*-* -- Riley Rainey Internet: riley@mips.com MIPS Computer Systems Phone: +1 214 770-7979 Dallas, Texas dan ---------------------------------------------------- O'Reilly && Associates argv@sun.com / argv@ora.com Opinions expressed reflect those of the author only.